Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_56372.txt

Text File | 1990-08-07 | 7KB | 328 lines

-- card: 56372 from stack: in.0-2
-- bmap block id: 56666
-- flags: 0000
-- background id: 15301
-- name: color.1
----- HyperTalk script -----
on showElmo
  set cursor to none
  repeat with n = 1 to 5
    show btn ("elmo" & n)
    PaintPict Elmo2,cd,("elmo" & n)
    wait 4
  end repeat
  PaintPict Elmo1,cd,"elmo5"
  wait until the mouseClick
  clearScreen
end showElmo

on showSea
  show btn "seaButton"
  PaintPict theSea,cd,"seaButton"
  wait until the mouseClick
  hide btn "seaButton"
  clearScreen

end showSea

on clearScreen
  lock screen
  repeat with n = 1 to 5
    hide btn ("elmo" & n)
  end repeat
  choose button tool
  choose browse tool
  unlock screen
end clearScreen


-----------------------------------------------------------------
-- The following handlers set monitors to color, grayscale--and back to
--black and white.

on openCard
  setColorGlobals
  pass openCard
end openCard

on closeCard
  global weWentToColor
  if weWentToColor is "yes" then setToMono
end closeCard


on setColorGlobals
  global userColorState, colorIsAvailable, noColorRestore, weWentToColor
  put "no" into weWentToColor
  put false into noColorRestore
  put empty into userColorState
  put false into colorIsAvailable -- the default
  put sysEnv() into theEnvirons
  if item 5 of theEnvirons is false then exit setColorGlobals  -- not color
  -- Handle Mac II color
  getMaxColors
  put the result into numBits
  if numBits is 256 then put true into colorIsAvailable
  saveColorState
  put the result into userColorState
end setColorGlobals

on setToColor
  global colorIsAvailable, weWentToColor
  if not colorIsAvailable then exit setToColor
  saveColorState
  put the result into colorState
  if colorState <> "256!1" then
    put "Please click “Switch” to switch your monitor to color or grayscale mode." into thePrompt
    ShowDialog 1,3757,thePrompt,TRUE
    if the result is 1 then
      setColorState 256, color
      put "yes" into weWentToColor
    end if
    exit to HyperCard
  end if
end setToColor

on setToMono
  global colorIsAvailable, weWentToColor
  if not colorIsAvailable then exit setToMono
  saveColorState
  put the result into colorState
  if colorState <> "2!0" then
    answer "Returning the monitor to Black & White!"
    setColorState 2, gray
    put "no" into weWentToColor
    exit to HyperCard
  end if
end setToMono


function numBits savedState
return char 1 to (offset("!",savedState)-1) of savedState
end numBits

function colorState savedState
if last char of item 1 of savedState = "0" then
  return "gray"
else
  return "color"
end if
end colorState





-- part 4 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=151 top=5 right=285 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elmo5


-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=161 top=22 right=268 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elmo4


-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=172 top=40 right=251 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elmo3


-- part 7 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=193 top=74 right=216 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elmo2


-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=213 top=107 right=184 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elmo1


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=257 right=278 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: showPict
----- HyperTalk script -----
on mouseUp
  showElmo
end mouseUp



-- part 12 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=64 top=280 right=301 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remember
----- HyperTalk script -----
on mouseUp
  if 3 = 5 then
  end if
end mouseUp



-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=100 right=153 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name:


-- part 18 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=66 top=51 right=281 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: seaButton


-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=64 top=285 right=306 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=178 top=227 right=245 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: showPict
----- HyperTalk script -----
on mouseUp
  setToColor
end mouseUp






-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=255 top=256 right=277 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: showPict
----- HyperTalk script -----
on mouseUp
  showSea
end mouseUp



-- part contents for background part 1
----- text -----
You can use commands that come with HyperCard to show color pictures and animations created with 3rd party programs.  To see the color pictures here,
                                 . If you do, click “Set monitor to color” to set your monitor to color mode.
(If you have a monochrome monitor, it will show the images in grays; with a Macintosh SE or a Macintosh Plus, you’ll see the images in black and white.)   Then, click on the examples...



-- part contents for card part 12
----- text -----
Be sure to reset your monitor back to black and white.

-- part contents for card part 13
----- text -----

                                                              you
 must have a color monitor

-- part contents for card part 19
----- text -----
Click the mouse when you’re done viewing each picture.